Remove, since floor and mod

(caesar-region): Replace `%' by `mod' and simplify.

diff --git a/lisp/mail/rnews.el b/lisp/mail/rnews.el
index d699bc55f7ff02fc92f76730f849d1dcd79837ae..5af007dd0404bafb0a745263edc8b1d0d2d5d58e 100644 (file)
--- a/lisp/mail/rnews.el
+++ b/lisp/mail/rnews.el
@@ -929,8 +929,7 @@ FName to link to message: ")
                   (list (prefix-numeric-value current-prefix-arg))
                 (list nil)))
   (cond ((not (numberp n)) (setq n 13))
-       ((< n 0) (setq n (- 26 (% (- n) 26))))
-       (t (setq n (% n 26))))          ;canonicalize N
+       (t (setq n (mod n 26))))        ;canonicalize N
   (if (not (zerop n))          ; no action needed for a rot of 0
       (progn
        (if (or (not (boundp 'caesar-translate-table))